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News and Reviews 

by Mike Dunn, Co-Editor 

The last meeting of ACE was exciting in that we had a comparison 
of the Amiga vs the Atari ST . A local Amiga dealer was kind enough 
to come and demonstrate their fine machine. Very impressive, but for 
'°re than twice the price of the ST, not that much different. It was 
eresting to see the famous bouncing ball on both the machines. The 
'-main difference seemed to be the multitasking and animation of the 
Amiga, but I think "Power without the price" won the day. I do not have 
an ST, but may get one someday. I find the 8-bit Ataris powerful enough 
for my needs. Remember our Dec. meeting features our annual swap 
meet with proceeds to our local science museum, WISTEC. 

The big club news is that we have just received our modem from 
U.S. Robotics , the 300/1 200/2400 Courier. They have a very special 
deal for bulletin boards of clubs such as ours to buy one at a very low 
price. We are also setting up a 10 Meg Hard Disk, and hope to be 
operational soon. Larry Gold, Vice Pres and SYSOP will tell more. 

We have some new disks for the library, a new line of old and new 
programs for the new Atari 8-bit owner. Two are now almost ready, 
each on a double sided disk for only $10. Incidentally, a double-sided 
disk means that each side of the disk is filled with programs, and you 
turn the disk over to use the other side. It does not require a special 
drive; you do get twice as much for your money. These disks, called 
The Essential ACE disks will be offered to new members, but anyone 
may order them. They include many utilities by your ACE favorites 
including Stan Ockers, Dale Lutz, Paul Freeman, Bob Floyd (of SPACE), 
Sydney Brown and from our U.K. friends, Page 6 and the U.K. Atari Club 
Monitor, and others. 

Essential ACE Disk One: 

Side 1: The complete DOS 2.5, the patch to make it memory 
resident in an XL, the Translator file to run old Atari programs on a XL 
or XE, several different disk and cassette copy programs, including 
XECOPY (allows you to copy an entire disk with a XE with one pass), 
and a very nice, simple disk directory and label maker program from our 
Pres., Dick Barkley. 

Side 2: MACH DOS with documentation, a disasmbler, a charactor 
generator, a PMHelper generator, a sector editor, a renumber program 
and similiar additional utlities. 

Essential ACE Disk Two: 

Side 1: A modified DOS 2.0 called 2.6f, that has several very nice 
features, and various printer utilities. Included is Pictrix, in a compiled 
version by Paul Freeman, a program that allows you to load and 
interchange as well a print out pictures from MicroPainter, Atari Touch 
Tablet, etc. From Bob Floyd comes NiceList in compiled versions for 
'eral printers plus the source code to modify, a very nice program 
jrint out the funny control charactors to your printer, a MX80 graphics 
trump and a disk label program. 

S:de 2: Has DOS 2.5, AMODEM 7.1, the newest and best public 
domain modem program, drivers for Atari and MPP modems, complete 
documention, 40 and 80 column versions of Stan Ocker's TinyText, and 
his Label program. 

We have also just received a set of 4 ACTION! Utility Disks and 1 
ACTION! Game disk from NovAtari club of Virginia, a great collection 
of programs including a Pseudo-Assembler, a Public Domain Run-time 
generator, a program to analyzes your program to see what run-time 
modules you need, and many other useful things. The disks are 
documented well, and until we organize them and put them in our library, 
for this issue, you can get the 4 Utility disks for only $20 (2 double¬ 
sided disks. Highly recommended for intermediate to advanced ACTION! 
programmers. 

We have just received the Print Shop Graphics Library -3 from 
Broderbund, which includes 1 20 new graphics for Christmas, myth and 
fantasy, seasons, animals, international symbols, animals, an eye chart, 
etc. Recently, my daughter who has never seen PrintShop and one of 
her friends needed to make some posters and I suggested using this 
program. Without looking at the manual, they were able to produce some 
great looking posters and have a blast doing it. If you have a graphic 
printer, you are missing a great deal if you don't get this program for 
Christmas to at least make some Christmas cards (get Graphics #3 also). 
It is fun and so easy that even an adult can do it! 

If you are interested in PrintShop graphics, several Atari User 
Groups have gotten together and are putting together disks for $10 
each. If you are interested, send me your best efforts, and I'll send you 
a disk full when it is completed and then trade with the other groups. 


One of the good friends of the Atari world, Gary Furr the designer 
of Atari Writer and the developer of the printer drivers for this fine word 
processor is now alone and marketing the various drivers. Because of 
the low demand, probably mainly because people do not know of them, 
Gary is getting discouraged and is thinking of stopping his support. If 
you have the AtariWriter and want it to work the best for your printer, 
send him only $10, and your printer will really reach it's capabilities. 
Gary was a great supporter of the user groups in the "old" Atari 
company, going out of his way many times to help us. He deserves our 
support. Rembember, only $10 for almost any printer; let him know 
which one you want and that ACE sent you. (Gary Furr, POB 1 330, Mt. 
View, CA 94042-1330). 

In the last issue, the excellent programs from England, Sector and 
Computer Aided design were from the U.K. Atari Club as the listing 
indicated, not Page 6. Sorry for the mixup. 

CODE BLOCKS 

Action! Code Block Generator 
(by Jim Patchell; reprint: SBACE, Sept., 1985) 

For those who don't know, code blocks are a way of putting 
machine language programs into your Action! programs. They are also 
a nice way to add efficient library functions to your Action! programs. 
In fact, the Action! Run Time Library is noting but a collection of code 
blocks which perform various functions. A good example of what a code 
block is is the BYTE FUNC ConCat at the top of the program listing. All 
the hex numbers surrounded by the [ ] characters are a code block, the 
Action! Compiler converts these numbers directly into binary code and 
puts them into the computer. The special way of defining the function 
allows us to call these code blocks from our Action! programs. 

In the past I have made smaller functions which I could call, such 
as the function BYTE FUNC hi, and these are very easy to enter in by 
hand. But the big string handling functions were first written and tested 
with an assembler and debugger. After they worked, I took the assembly 
listing and entered by hand the object portion of the listing. Tedious City 
There had to be a better way! 

I wrote this program for doing this job. The program requires a 
standard binary saved object file. It takes that file and starts outputting 
a series of code blocks until it is done. There are parts of this program 
which actually do nothing. There is a section of code which tries to figure 
out how long the code is, but I find that some of the files AMAC 
generates do not have the proper header, so this information is not used 
in the part of the program which makes the blocks. If you are using 
AMAC, you may have some extra stuff tagged onto the end of the code 
block, so use your Action! editor and your assembly listing to get rid 
of the extra stuff. Now all you have to do is just define your PROC or 
FUNC and you will have a new library function you can call. 

By the way, only assemble one routine at a time. If you have a whole 
bunch in one file, you will only get one big bunch of codeblocks. This 
program cannot separate out seperate procedures. 

Also, if you wish to do less typing, BYTE FUNC SubPos and DelSub 
are not used, but you may want them anyway. Just be careful not to 
make any mistakes when typing in a code block. 
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DISK DRIVES 

(by Bill Petry; reprint: RAG BAG, June, 1985) 

Like most "intelligent" peripherals (printers and the 850 interface), 
Atari disk drives contain a 6507 microprocessor (MPU), a 6532 
Peripheral Interface Adaptor or PIA, (due to the 6507's lack of direct 
connections), an Operating System in Read Only Memory (ROM), and 
alittle Random Access Memor (RAM) to serve sector buffer and scratch 
pad needs. These process all commands and control data flow to and 
from the computer. 

What sets the disk drive apart from other peripherals is the Floppy 
Disk Controller (FDC) chip. The FDC controls data to and from the 
diskette through the Read/Write Erase Head. 

The R/W Head is "stepped" from the outer track 0 to the innermost 
track 39 by the Stepper Motor which is controlled by the MPU through 
the PIA. The head is moved a step at a time in or out to align it with 
the currently desired track. 

The Drive (or Spindle) motor spins the diskette at a speed of 288 
rpm. It has two states: On and Off. It is controlled by the MPU'through 
the PIA. 

Initialization on the 810 goes something like this: On power-up the 
MPU does a JMP (GOTO) to the address contained in the last two bytes 
of the program in the ROM chip. This starts the program execution and 
does the following: a) turns on the drive motor; b) positions the head 
to track 0; c) waits for a command from the computer, or after 7 seconds 
steps in to track 39 and turns off the drive motor. This command could 
be either the loading of a boot program or DOS. But the computer must 
send the command first (the Archiver Chip excluded). 

There are five valid commands for the stock 810 drive: Format disk, 
Read sector, Write sector, Sector status, and Put byte (no verify). The 
1050 drive has an additional command for the Medium Density format. 

Enhanced drives (Happy and Archiver) and the un-released "E" 
version of the 810 ROM support other commands. The E ROM permits 
downloading of user programs. The Archiver Chip supports 16 
commands including Set Drive shutdown time. Open chip, Read sector 
address. Write CRC (Cyclic Redundency Checksum), and Download, as 
well as the original five. 

The U.S. (Ultra Speed) Doubler ROM for the 1050 supports true 
double density (256 bytes/sector), the original five commands, plus 
ultra-speed sector skewing, 35/40 tracks per inch spacing and a few 
others. 

The 810 drive has a 1 771 FDC and can support only single density 
format. The 1050 drive contains a 2793 FDC which can support single 
and medium density (1 28 bytes/sector and either 1 8 or 26 sectors per 
track), and true double density (256 bytes/sector at 18 sectors per 
track). 

Percom drives have a 6809 MPU, 6850 PIA and a 1795 FDC. The 
single Rana I examined contained a 8031 Control oriented MPU with 
RAM and I/O, an 8155 HMOS RAM I/O port timer, and a 2797 FDC. 

A more detailed account of each part of the drive's electronic and 
mechanical units is provided in the 810 and 1050 Disk Drive Field Service 
Manuals. The Atari 810 Disk Peripheral Device Description (1 5-DEC-80) 
provides a bit more insight. 

The 810 drive contains 4 separate printed circuit (PC) boards: a 
Power board in the back; an analog board on top of the drive mechanism 
itself; and a two-parts-in-one side board. 

The Power supply board provides for rectified 5 and 12 volts for 
motors, etc., and motor speed control circuitry. You can adjust the rpm 
(with the proper program) y turning the screw on the green 
potentiometer (or the flat white one to the rear left on the older models). 
The improved power boards provide very stable speed control. 

The Analog board (missing on the early models) provides better 
read/write amplification and cleaner signals. 

The side board assembly contains the actual "controller" (like the 
Apple controller card), with the MPU, ROM, RAM, PIA and FDC. The 
small board inside the Radio Frequency (RF) shield is the external data 
separator. 

The FDC encodes data on the diskette serially (one bit at a time) 
in FM (not stereo though!) with a reference 4-microsecond clock pulse 
with each bit written. 

The letter "R" ($52, #82) would be something like the following: 

CO Cl CO Cl CO CO Cl CO 

The C's indicate the clock pulses (which actually are recorded like 
the 1's). The "R" (#82, $52) is 01010010 in binary. 

During a diskette read the signal is received from the diskete and 
the data must then be separated from the clock pulses to make useable 
data bytes. The 1 771 FDC contains an internal data separator, but due 
to timing tolerances with the 5.25" diskettes on the inner tracks, it is 
inadequate to readily handle the bit shifting. The result is the familiar 
"Time Out" and its associated irks. The external separator compensates 
for the shifting, keeping the current bits properly "windowed" and the 
flow of data smoother. 

The 1050 works basically the same, although there is only one PC 
board with all the electronic components on it. The medium density is 
recorded slightly different electronically on the diskette also. 

The above is a sketch of the . . . Disk Drive SIG [of the Redwood 
Atari Group] .... 


FLEA MARKET 

This year's annual pre-Christmas Flea Market to benefit WISTEC will 
be different than in previous years. First of all, we don't ask you to 
donate 10% of whatever money you receive for items you sell. This year 
we ask only a flat donation of $5.00 per person (unless you're only a 
buyer — buyers get in free). 

So if you have some hardware you're no longer using, bring it an-' 
see if someone wants it. If you have some original software with origii 
documentation you're no longer using, someone else might want to bu^—- 
it. Books, magazines and any computer-related item is welcome. 

Contact Larry Gold if you want to sell any items and give him the 
donation for WISTEC. You will receive a receipt from WISTEC for your 
donation (you don't need to limit it to $5.00 if you choose to give more 
to WISTEC). 


FURTRADER 


ROBBED YOUR POCK HORSES OF SOHE 

OF YOUR FIIR5." 

7140 GET lll,Y 
7150 ? "*" 

7200 IF INT(RND(1)*125)>5 THEN 7250 
7210 K=H-INT(RND(l)*tH72)) 

7220 POSITION 0,9;? " SOHE ROBBERS HOV 
E JUST ROBBED YOUR POCK HORSES OF 
SOHE OF YOUR HONEY." 

7230 GET #i,Y:? "*" 

7250 GOTO 25 

8000 ? "YOU DIED DUE TO 0 LOCK OF REST 
.‘MGOTO 8030 

8028 ? "BOD LUCK.YOU STORVED TO DEOTH. 


8830 ? ;? "YOU HOD “;Fj" POCK HORSES 0 
F FOOD OND MOTER LEFT." 

8060 ? "YOU COULD HOVE SURVIVED ";D;" 
DOYS WITHOUT REST." 

8080 ? "YOU COULD HOVE SURVIVED ";H}" 
DOYS WITHOUT F00D/H0TER.” 

8100 ? :? "IN YOUR HILL YOU LEFT :" 
8115 K=H* CHF#HFP)♦CCF*CFP)♦f0F«0FP)♦(R 
F*RFP> 

8130 ? ;? "0 TOTOL OF *";Hj" NET" 

8150 ? :? "t ";HF;" HOGGIS FURS )" 

8160 ? :? "C ";CF;" COYOTE FURS I" 

8170 ? :? "C ";0F;" OCELOT FURS J" 

8180 ? :? "( ";RF;" ROBBIT FURS )" 

8228 GET tti, Y 

8230 ? "*T0 PLOY OGOIN PRESS ONV KEY." 
:GET 81,Y:G0T0 6 
9000 POSITION 0,17:? ’1 


WHAT AB 


0 25 

9920 POSITION 8*17:? " TOI 

■uxoai ttl,Y :got 

0 25 

9849 POSITION 8*17:? 

0 25 

10080 POKE 718*55;SOUND 8,36*36*36:FOR 
J-0 TO 180:NEXT J:P0KE 718,148:SOUND 
8*0*0*0:TRAP 18000:GOTO 25 


ORANGES 

The Saga of ORANGES 
by Dale Lutz 

In June, 1 984, I had the great idea to do an article comparing several 
Atari high level languages. What better way to do this, I thought, than 
writing a simple game in each of the languages, and then pointing out 
the important differences between each of them. Well, the game I chose 
to write is entitled 'ORANGES', and it is your very simple 'things are 
falling so catch them' type of game. I wrote the game first in BASIC, 
then in ACTION, then in FORTH, and finally in ACE C. Before I start in 
with the details of each of the languages, I should first give an overview 
of the game itself. 

The player's task in ORANGES is simple. An orange (actually a 
graphics 5 pixel) is falling and you position your basket below it to catch 
it and earn points. If you miss 3 oranges, the game ends. A high score 
tally is kept and displayed on a Graphics 1 text window on the bottom 
of the screen. So basically all the program does is 1) set up the screen, 
2) wait for START to be pressed, and then 3) drop oranges until 3 are 
missed, and repeat the whole process. 

I first wrote the program in BASIC because at the time it was the 
language I knew the best, and because it is interactive and interpretive, 
meaning you can make changes to the code on the fly without needing 
to recompile. All the other languages require a recompiling process that 
takes time and can be a bother. Recompiling ACTION! programs is the 
least bother because the compiler is built into the cartridge and you can 
have the source code in memory at the same time as the compiled 
version is running. FORTH is quite a bother to recompile because first 
you have to use the editor to edit a 'SCREEN' (FORTH has no notion 
of a source file — you must put your code onto blocks on the disk called 
SCREENS, and then load these screens back in to have them compiled), 
and then LOAD the screens back in. Of course, as the screens load in, 
they are compiled and all the procedure names (called VERBs in FORTIH 
lingo) are added to the dictionary (the library of available FORTH verbs). 
The problem is that if you are loading the program a second or third time, 
you keep adding more and more identical verbs to the dictionary, all the 
time getting the message 'ORANGES is not unique' message for each 
verb that was already there. To recompile C is also a bit of a hassle 
because you have to first load in some kind of editor to change your 
source file, then load in the compiler to compile it, and finally load in 
the linker to link your source file to the routines it uses (like DRAWTO 
etc.) With the Ramdisk on a 1 30XE this isn't so bad, and I understand 
a new version of C that makes use of the XEs extra memory is available 
too, but with an old 800 it is a very slow process to recompile. 

After writing the program in BASIC I translated it to ACTION. Going 
r rom BASIC to ACTION was a bit tricky as I changed all the subroutines 
.n BASIC to PROCedures in ACTION!. Another noticeable change was 
that all the variables I used in BASIC had to be declared at the top of 
the ACTION program. At first I thought that was a very dumb idea, but 
as I become more experienced of a programmer I find that not having 
to declare variables only leads to bad practices and big troubles in 
debugging. However, it was quite straightforward going from BASIC 
to ACTION, and the code produced by both is quite similar. In my 
opinion, the ACTION code is the easiest of all four to read because of 
its nice WHILE condition DOOD structures, and its familiar BASIC-like 
commands. ACTION has a nice shorthand for adding a value to a variable 
that is a bit different. In BASIC you have, say, BASKETS = BASKETS + 3, 
in ACTION! you only need to write BASKETS = = +3. 

Next I translated the program into FORTH. If you look at the FORTH 
listing, you will notice two things. The first is that it hardly takes any 
room at all, the second is that you cannot figure out what it is doing. 
The constant and variable declarations are straightforward enough, but 
from then on it gets crazy. FORTH verb definitions always start with 
a colon, then the verb name then what it is to do, terminated with a 
semicolon. Understanding FORTH requires you first to grasp the idea 
of postfix notation. FORTH uses a stack, and all arithmetic you perform 
is done on this stack. Examples are the best way of illustrating: Suppose 
you want to add the numbers 3 and 4. In FORTH you would type 3 4 
+ . This way of expressing things is used by many scientific calculators, 
and has the advantage that parantheses are not needed. Many people 
who are used to it swear by it, but I feel that for the most part it is 
unnatural to us, and consequently hard to read. Anyway, the effect this 
has on your FORTH code is that everything is backwards to what you 
would think. I will give one more example: Suppose in BASIC you had 
this line: IF J = 3 THEN BASKETS = BASKETS-1. In FORTH, this 
becomes: J @ 3 = IF BASKETS @ 1 - BASKETS ! THEN. The @ gets 
the value of the variable, and the ! stores a value in the variable. 


My biggest complaint about FORTH is the method for storing your 
code. Because of this screen oriented source storage, inserting a couple 
of lines in the middle of something is not a trivial job. If FORTH would 
use normal files for its source, I think one could grow to like it because 
the code is so compact. But as it stands, it is a nightmare to program 
in. I translated the ACTION version directly to FORTH, and it got it 
working quite fast. But if I were just making the program up as I was 
going, it would have been impossible because I wouldn't have been able 
to easily add chunks of code I forgot about as I was trying to debug. 

This past spring I translated ORANGES into C. Again I went from 
the ACTION! version to C. In fact, I used the same source file and only 
modified it in the places where C and ACTION differed. C is not a bad 
language either — the biggest drawback is the editor/compiler/linker 
switching all the time, however, this is only a fault of our old 8 bit 
machines. C will be of the most interest to those of you who are going 
for the new STs. I will pass on a few things I picked up while doing my 
translation. First and most important, all C reserved words (like IF, etc.) 
MUST BE IN LOWER CASE. You can name your functions in upper case 
if you want, but any C words must be in lower case. ACTION is forgiving 
about cases, but C is not. Another big difference is that each C 
statement must be terminated with a semicolon. Note that a statement 
is not the following: while (Strig(O) = = 1). If a semicolon is after this, 
the code you want executed while the condition is true will not be 
executed. Also notable about C is that it makes a difference between 
its assignment operators, and its test for equality. To assign a value, 
you do as in BASIC (baskets = 0), or whatever. However, to test for 
equality, you type baskets = =0. This is because in C you may assign 
and test for equality on the same line. Also C has this notion of a code 
block. A code block is equivalent to the code between the DO and OD 
in ACTION. Each procedure is considered a code block. Code blocks are 
normally set off in C by opening and closing braces, but since on our 
8 bit machines we don't have these, we must use the $( and $) to set 
off code blocks. Make a note that it is $( and NOT ($ - I had them 
switched for while and couldn't figure out why it wouldn't compile. 

The final point I want to raise is the running times of the completed 
programs. The BASIC program runs the most slowly, as one might 
expect since BASIC is an interpretted language. Even with no delay built 
in, the BASIC program is so slow that playing it is no challenge. The 
FORTH and C programs have very similar running speeds. A slight delay 
was put in both to make them playable. The ACTION! version runs the 
fastest of all. Even with a large delay loop built in, the program is very 
challenging and almost too fast. 

Those of you so inclined should be able to learn quite a bit while 
studying the listings of the program in the different languages. I sure 
learned alot while programming them. If you are really interested, you 
might want to consider getting FORTH and C for yourself. I beleive that 
ANTIC sells a documented version of FORTH, and ACE C is available 
from the ACE library for a minimal charge. (Public domain versions of 
ACE-C and fig-FORTH from S.P.A.C.E, with no documentation for $ 10 
each from ACE, or the super XE-C from Ralph Walden for $35). The 
1 30XE C is available from Ralph Walden, and is recommended for those 
with an XE. A great book for learning FORTH is Leo Brodie's 'Starting 
FORTH'. I can't say enough about how good this book is — if only all 
computer manuals were this good. A book that can be tough sledding 
but will tell you all about the C language syntax and features is "The 
C Programming Language" by Kernighan and Richie. It is the final word 
on any question one may have about C. 

In closing, I want to encourage those of you who are tired of BASIC, 
and are looking for a new challenge, to get one of these languages, and 
learn it. Even if you don't have any practical use for it, it is alot of fun 
to learn a new language, and the experience you will gain will help you 
alot in the future. This summer I had to learn FORTRAN where I worked, 
and my experience with these languages really helped me. 

Ralph Waldon's 130XE-C is available with extensive documentation 
for $35 from him a 1 821 Jefferson, Eugene, OR 97402. Specify single 
or double density. According to some C experts I know, it is better than 
any available for the IBM-PC, etc. [ -ed.] 

SWAP MEET 
AMAZON PARK 
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CALENDAR 

; Calendar Generator/Date Handler 

; By Bale Lutz 
; July 31, 1985 

; To custinize the sizes of the calend 
ars, 

; you should change the variables 
; ‘depth* and 'width* in the PROCedure 

; Calendar. Additionally, you nay vis 
h 

; to nodify the printer setup strings 
; to use larger printing or to work on 

; a non-Epson printer. 

; I like to use the large print, large 

; style calendar for keeping track of 
; appointnents, and the snail print, 

; snail style calendars for in the 
; pocket reference. 

; The BYTE FUNCTION GetChoice is a 
; 'Print Shop* type nenu easily usable 

; in other prograns. It can be noved 
; easily to other prograns. It is 
; docunented within its body below. 

INCLUDE *'D8:5Y5.ACT" 

DEFINE year="1985**, 
nonth=*‘Bl", 
day='*ei*', 

vbar="i56", \ *| on the screen 

hbar="i57*' ; '-on the screen 

jvbar^*'!", ;used when testing 
;hbar='"-'* ; " » » 


BYTE ARRAY dayn=£O0 31 0 31 38 31 30 

31 31 38 31 38 311, 

; the following two byte arrays are th 
e 

; printer setup. The first byte is th 
e 

; length of the setup string. The nex 
t 

; two reset the printer, then the pape 
r 

; out sensor is disabled C27 *8), 

; unidirectional printing started (27 


*U 1), 

; for the snail, superscript node is 
; started (27 *58), 

; conpressed node entered (15), 

; and the line spacing set to 7 or 
; 4 72nds of an inch (27 65 C7 or 41). 


large=Cll 27 *e 27 *8 27 'U 1 15 
27 65 7 1, 

snall=(14 27 *e 27 *8 27 *U 1 27 
*5 0 15 27 65 4 1, 

5izen=(0 78553446978 81 

routes£2 *P 

CARD ARRAY nanen(l2),naned(6),nenu(18) 
CARD yy 

BYTE nn,dd,doonsday,weekday,dayflag 

PROC FillStr(BYTE ARRAY str) 

BYTE tenp 

IF Str(0)=1 THEN 
tenprstr(l) 
str(2)=tenp 
str(l)=*8 
str(8)=2 
FI 

RETURN 

PROC FancyGet(BYTE ARRAY date BYTE x,y 
,len) 

* This procedure will allow fancy input 
;of a date. 

;It intercepts all input and 
jvill take off as soon as either 
;the box is full or RETURN is pressed. 

;a default date should be in 'date* 
;vhen this routine is called. 

;the x,y variables tell the position 
;on the screen for the input to occur 


BYTE nunlen,a,key 

Position(x,y) 

FOR a=l to date(0) 
DO 


DALE LUTZ 

Put(date(a)) 

OD 

Close(3) 

Open (3,"K:**,4,8) 

nunlen=l 

key=8 

Position(x+nunlen-l,y) 

Put(38) 

Put(31) 

HHILE key<>!55 AND nunlen<len+l 
DO 

key=GetD(3) 

IF key>='0 AND key<=*9 THEN 
date(nunlen)=key 
Put(key) 
nunlen~+i 

EL5EIF (key=126 OR key=30 OR key='+) 
AND nunlen>l THEN 
nunlen==-l 
Put(30) 

EL5EIF key=31 OR key='* THEN 
nunlen==n 
Put(31) 

FI 

OD 

RETURN 

PROC DateGetO 

BYTE ARRAY yys(5),nns(3),dds(3) 

5trC(yy,yys) 

5trB(nn,nns} 

FillStr(nns) 

5trB(dd,ddS) 

FillStr(dds) 

Position(14,12) 

PrintC'YYYY NM") 

IF dayflag=l THEN 
Print (" DD'*) 

FI 

FancyGet(yys,14,13,4) 

FancyGet(nns,28,13,2) 

IF dayflag=l THEN 
FancyGet(dds,24,13,2) 

FI 

yy=ValC(yys) 

nn=ValB(nns) 

IF dayflag=l THEN 
dd=ValB(dds) 

ELSE dd-1 
FI 

PutEO 

RETURN 

BYTE FUNC DoonfindO 
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CALENDAR 


/This function returns the day of the 

;veek which is the 'doowsday 1 for a 
particular year. The convention 
;followed is that 8 Means Sunday, 

;1 is Monday, and so on.. 

BYTE theday,twe1ves,o ffset,base, 1e ftov 
er, 

leaps,reMainder, dooMsday 

base=3 jyear 1988 Wednesday is dooMs 
day 

leftover=yy-l988 
twelves^ieftover/12 
reMainderrleftover MOB 12 
leaps=reMainder/4 
o f fset= 1 eaps+rewa i nder+twe 1 ves 
offset=offset MOB 7 
dooNsdayr(offset+base) MOB 7 jthe do 
OMsday is found 

RETURN (dOOMSday) 

BYTE FUNC FindBay(BYTE dOOMSday) 

BYTE dooMdate,final,fake 

INT offset,theday 

IF Cyy NOB 4) = 8 THEN 
dayN(2)=29 
ELSE 

dayM(2)=28 

FI 

IF MM=1 THEN 

dooMdate = 31 ; January, norMal yea 
r 

IF Cyy MOO 4) = 8 THEN 
dooMdate=25 ;January, leap year 
FI 

EL5EIF MM=2 THEN 
doowdate=dayw(2) ;Februry 
ELSEIF (MM MOB 2) = 8 THEN 
dooMdate=MM jeven Months 
ELSEIF dayM(NM) =31 THEN 
dooMdate=MMf4 ;odd long Months 
ELSE 

dooMdate=MM-4 ;short odd Months 
FI 

fake=dd+42 ;required to avoid negati 
ves 

offset= Cfake-dooMdate) MOB 7 ;find d 
ifference 

;froM dooMdate to real day 
theday = (dooMsday*offsetl MOB 7 


IF theday<8 THEN 
thedayrr+7 
FI 

final=theday 
RETURN (final) 

PROC TellBay() 

BYTE Ch 
BO 

Put(125) 

Position(3,8) 


PutEO 

PrintEC ENTER THE BATE") 

PrintEC* :™==========«| 


OateGetO 

d 00 MSday=B 00 MFind() 
veekday=FindBay(dooMsday) 

PutEO 

PutEO 

PUtEO 

Print("The day of the week is==>”) 

PrintE (Rawed(weekday)) 

Close(3) 

0pen(3,“K:",4,8) 

PutEO 

PrintEC Press space for anothe 
r,") 

Print(" RETURN to exit -->••) 

ch=GetB(3) 

UNTIL Ch=155 
OB 

RETURN 

BYTE FUNC GetChoiceCBYTE nuMber, indent 


; Global CARO ARRAY Menu Must hold 
; the addresses of the options. Then 
; this function is called, allowing 
; the user to use the arrow keys or 
; the nuMbers to choose froM the Menu. 

; BYTE nuMber holds the nuwber of 
; options in the Menu, while 'indent 1 
; tells the prograw how far to space 
; over before printing the options. 

; The users choice is then returned. 

; Note that this routine can be reused 

j several tiwes in a single prograw 
; by siMply changing the paraMeters 
; before calling it. 

BYTE ARRAY teMp(38) 

BYTE a,b,key,choice,oldchoice 
CARB spc 


spc= M 

Poke(spc,indent) 

Position(3,18) 

PutEO 

FOR a=l TO nuMber 
BO 

Print(spc) 

PrintE(Menu(a)) 

OB 

Close(3) 

Open(3,"K:”,4,8) 
key=8 

oldchoicer nuMber 
choicest 

WHILE key<>155 BO 

IF key=28 OR keyr'- THEN 
choice==-l 

ELSEIF key=29 OR key='= THEN 
ChOicerr+1 

ELSEIF key<=*9 ANB key)*8 THEN 
choice=key-48 
FI 

IF choice=8 THEN choicemuMber 
ELSEIF choice>nuMber THEN choice=l 

FI 

IF OldChOiceOchOice THEN 
Position(3,9+oldchoice) 

PutEO 
Print(spc) 

PrintE(Menu(oldchoice)) 

Position(3,9+choice) 

PutEO 
Print(spc) 

SCopy(tenp, Menu(choice)) 

FOR b=l TO teNp(8) 

BO 

Put(teMp(b)U28) 

OB 

oldchoice=choice 

FI 

keyrGetB(3) 

OB 

RETURN (choice) 

PROC Calendar() 

BYTE ch,dooMsday,weekday,a,b,width, 
wholewidth,spaces,Maxday,block, 
depth,nuMMonth,ho1dMM,nuNprinted, 
Maxprint,op 

CARB setup 

BYTE ARRAY Sday(5), 

M3X= (8 4 2 18 61 
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CALENDAR 


Put(125) 

PutEC) 

PutEC) 

PutEC) 

PrintEC" Calendar Generatio 

n") 

PutEC) 

PrintEC" Subsystem") 

nenuCl)=»l. Large Style, Small Print 


menuC2)="2. 
menu(3)="3. 
menu(4)="4. 


Large Style, 
Small Style, 
Small Style, 


Large Print 
Small Print 
Large Print 


ch=GetChoice(4,7) 

IF Ch-I OR Ch=2 THEN 
Width=18 
depth=4 
ELSE 
Width=2 
depth=8 
FI 

WhOlewidth=7*(width+l)+l 

maxprint-max(ch) 

IF Ch=l OR Ch=3 THEM 
setup-small 
ELSE 

setup=large 
FI 

PutC125) 

PUtEC) 

PUtEC) 

PutEC) 

PrintEC" 
n") 

PutEC) 

PrintEC" 

PutEC) 

PrintEC" 
ate") 

PrintEC" 

===") 

DateGetO 
PutEC) 

PutEC) 

PrintC" 

Put(38) 

Put(38) 

nummonth=lnputBC) 
nummonth==-l 
IF nummonth+mm>l2 THEM 
nummonth=l2-mm 
FI 

CloseC2) 

OpenC2,route,8,0) 


Calendar Generatio 

Subsystem") 
Enter the starting 0 


How Many Months") 0i") 


PrintD(2,setup) 
numprinted=8 

OP-Ch 

holdmm=mm 

FOR mm=holdmm TO holdmm+nummonth 00 
doomsday^DoomfindC) 
weekdays indDay (doomsday) 

FOR a=l TO (wholewidth-(sizem(mm)+ 
6))/2 
DO 

PutD(2,32) 

OD 

PrintD(2,namemCmm)) 

PrintDC2,", ") 

PrintCDE(2,yy) 

PutDEC2) 

IF op=l OR op=2 THEM 
FOR a=8 TO 6 DO 
spaces-(Width-2)/2 
FOR b-1 TO spaces DO 
PutDC2,32) 

OD 

SCopyS Csday,namedCa), 1,3) 
PrintD(2,sday) 

FOR b=l TO midth-2-spaces DO 
PutD(2,32) 

OD 

OD 

PutDE(2) 

FI 

FOR Ch=l TO Cwidth+l)#7*l DO 
PutDC2,hbar) 

OD 

PutDEC2) 

blOCk-1 

maxday=8 

WHILE maxday<daym(mm)+weekday DO 
PutD(2,vbar) 

FOR Ch=l TO 7 DO 
IF block>weekday AND blocked 
aym(mm)tweekday THEN 

StrB(block-weekday,sday) 
PrintD(2,sday) 

FOR b=l TO Width-sday(O) DO 
PutDC2,32) 

OD 

ELSE 

FOR b-1 TO Width DO 
PutDC2,32) 

OD 

FI 

PutD(2,vbar) 

blOCk--+l 

OD 

PutDE(2) 

FOR ch=l TO depth DO 
FOR a=l TO 7 DO 


PutDC2,vbar) 

FOR b=l TO width DO 
PutDC2,32) 

OD 

OD 

PutD(2,vbar) 

PutDEC2) 

OD 

FOR Ch=l TO (Width+1)*7+1 DO 
PutD(2,hbar) 

OD 

PutDE C2) 
maxday=maxday+7 
OD 

PutDE(2) 

PutDEC2) 

PutDE(2) 
numprinted==+i 
IF numprinted=maxprint THEM 
PutDC2,12) 
numprinted=8 

FI 

OD 

mm=holdmm 

RETURN 

PROC Maine) 

BYTE Ch 

namem(i)-"January" 
namem(2)="February" 
namem(3)="March" 
namem(4)="Aprii" 
namem(5)="May" 
namem(6)="June" 
namem(7)="July" 
namem(8)="August" 
namemCS)^"September" 
namemClB)=»0ctober" 
namem(li)^"November" 
namem(l2)="December" 

namedC8)="Sunday" 
namedCl)="Monday" 
named(2)-"Tuesday" 
namedC3)=»Mednesday" 
named(4)=»Thursday" 
named(5)="Friday" 
named C6)="5aturday" 

yy=year 
mm=month 
dd=day 
Poke (718,0) 

DO 

PutC125) 
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ORANGES BY DALE LUTZ 


8 REM ORANGES IN BASIC 
1 REN BY DALE LUTZ 6/6/84 
18 BALL5TART=218:T0NE=388;WAIT=438 
28 LEFT0NE=138:RIGHTQNE=178 
38 5CREENSETUP=328:5TARTGAHE=368 
48 LEFT=li;RIGHTS:D0HN=39:SCREENHIDTH 
- 77 :CATCHCHECK-238:GANE0VER=418 
68 GOSUB 5CREEN5ETUP:GOSUB BALLSTART 
78 5T=5TICK(8) 

75 IF PEEK<764)0255 THEN GOSUB WAIT 
88 IF ST=LEFT THEN GOSUB LEFTONE 
98 IF 5T=RIGHT THEN GOSUB RIGHTONE 
188 COLOR 8iPLOT BALX,BALY:BALY=BALY*8 
.5:COLOR 1;PL0T BALX,BALY 
118 IF BALY=DOWN THEN GOTO CATCHCHECK 
128 GOTO 78 
138 REN LEFTONE 

148 COLOR 81 PLOT PLATE+i,BONN:PLATE=PL 
ATE-1 

158 IF PLATE<2 THEN PLATE=78:PL0T 1,D0 
WN:DRAHTO 3,DOWN:COLOR 2:PLOT 76,DOWN: 
DRAHTO 79,DOWN:RETURN 
168 COLOR 2:PLOT PLATE-1, DOWN:RETURN 
178 REN RIGHTONE 

188 COLOR 8‘.PLOT PLATE-1,DOWN:PLATE=PL 
ATE+1 

198 IF PLATE)78 THEN PLATE=2:PL0T 75,D 
OWN:DRAWTO 79,D0WN:C0L0R 2:PL0T 1,D0WN 
:DRAHTO 3,DOWN:RETURN 
288 COLOR 2:PLOT PLATE+i,DOWN:RETURN 
218 REN BALLSTART 

228 BALX=INT(RND(8)*5CREENWIDTH)+2;BAL 

Y=i:RETURN 

238 REN CATCHCHECK 

248 COLOR 8 

258 IF AB5(BALX-PLATE)<2 THEN CATCHES= 
CATCHES+1:COLOR 2:GOSUB TONE:GOTO 278 
268 BA5KET5=BASKETS-1:SOUND 1,188,8,18 
:FOR A=i TO 58:NEXT A:SOUND 1,8,8,8:IF 
BASKETS=8 THEN GOTO GANEOVER 
278 PLOT BALX,DOWN:POKE 656,8:P0KE 657 
,18:? CATCHES 

288 POKE 656,1:POKE 657,18:? BASKETS 
298 GOSUB BALLSTART:GOTO 78 
388 REN TONE 

318 SOUND 1,81,18,18:F0R A=1 TO 38:NEX 
T A:SOUND 1,8,8,8:RETURN 
328 REN SCREENSETUP 

338 GRAPHICS 5:A=PEEK(568)+256*PEEK(56 
1):POKE 752,1 

348 IF PEEK (A) 066 THEN A=A*1:G0T0 348 

358 POKE A,78:POKE A+3,6;P0KE A+4,6:PQ 
KE A+5,6:G0SUB STARTGANE:RETURN 
368 REN STARTGANE 

378 BA5KETS=3:CATCHE5=8:? CHR$(125):P0 
KE 656,1:POKE 657,25:? “PRESS fire“:PO 


KE 656,8:P0KE 657.26:? 

375 SOUND 8,258,18,18:50UND 1,252,18,1 

8 

388 IF 5TRIGC8J-1 THEN POKE 711,(PEEKC 
7il)+i)*(PEEK(7U) <255) :GOTO 388 
385 SOUND 8,8,8,8:SOUND 1,8,8,8:POKE 7 
11,78 

398 PLATE=39:? CHR$(125):POKE 656,8:P0 
KE 657,2:? "CATCHES 8“:P0KE 656,1:POKE 
657,2:? “baskets 3" 

488 POKE 657,38:POKE 656,8:? ";H 

I .'RETURN 

418 REN GANEOVER 

412 POKE 656,1:POKE 657,18:? BASKETS 

415 FOR A=188 TO 288 STEP 18:SOUND 1,A 

,18,18:FOR B=i TO 58:NEXT B:NEXT A 

417 SOUND 1,258,12,18:FOR A=1 TO 258:N 

EXT A:SOUND 8,8,0,8 

428 IF HKCATCHE5 THEN HI=CATCHE5 

425 ? »6;CHR$(125):GOSUB STARTGANE:605 

UB BALLSTART:GOTO 78 

438 REN WAIT 

448 FOR A=i TO 188:POKE 764,255 
458 IF PEEK(764)=255 THEN 458 
468 POKE 764,255:RETURN 


A@ 

/* ORANGES IN C */ 

/* BY DALE LUTZ 858718 */ 

((define key 764 
((define dom 39 
((define screen 77 
((define left 11 
((define right 7 

char a,plate,balx,baly,st; 
int b,catches,baskets,hi; 

Delay () 

$( 

int i; 

for(b=l;b<=3;++b) 

i=i+l; 

$) 

Waitn 

$( 

int i; 

for(a=i;a<=l88;++a) 

Delay(); 
poke(key,255); 
vhile (peek(key)==255) 
i=i+l; 


poke(key,255); 

$) 

ToneO 

$( 

sound(1,81,18,18); 
for(a=l;a<=38;*+a) 
Delay(); 
sound(1,8,8,8); 

$) 

LeftoneO 

$( 

color(8); 

Plot (platen, down); 
--Plate; 
if (plate<2) 

$( 

Plate=78; 
plot(1,down); 
dravto(3,dom); 
color(2); 

Plot (76, dom); 
drawto(79,dom); 

$) 

else 

$( 

color(2); 

plot(plate-i,dovn) 

$) 

$) 

RightoneO 

$( 

color (6); 

plot (plate-1, dom); 

++Plate; 

if (plate>78) 

$( 

Plate=2; 

plot (75, dom); 

drawto(79,dom); 

color (2); 

plot(l,dom); 

dravto(3,dom); 

$) 

else 

$( 

color(2); 

plot (plate+i, dom) 

$) 

$) 

BallstartO 

$( 

ba1x=rnd(sc reen)+2; 
baly=l; 
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CatchcheckO 

$C 

colorC0); 

if ((abs(balx-plate!l<21 
$( 

++catches; 
color(23; 

Toned; 

$1 

else 

$.( 

—baskets; 
sound(1, lee,8, 18) ; 
for(a=l;a<=50;++a) 
Delay (1; 
sound( 1 , 0 , 0 ,0); 

$) 

Plot(balx,down); 
poke(656,01; 
poke(657,101; 
printf("Ed",catches); 
poke(656,11; 
poke(657, 101 ; 
printf("Xd",baskets); 

Bal1start(1; 

$1 

Startganed 

$( 

baskets=3; 
catches=0; 
color(01; 

Plot(1,down!; 
dravto(79,dovnl; 
printf("Sf"l; 
poke(656,11; 
poke(657,251; 
printf("PRESS fire"!; 
poke(656,01; 
poke(657,261; 
printf ( , l EnF-liTO# , l; 
sound(0,250,10,lOl; 
sound(l,252,10,101; 
vhile (strig(0!=rii 
$( 

Delay (l; 

poke(711,peek(7111+11; 

$1 

sound(0,0,0,61; 
sound(1,0,0,01; 
poke(711,701; 

Plate=3S; 
printf("\f"); 
poke(656,01; 
poke(657,21; 


printf("CATCHES 6"l; 
poke(656,11; 
poke(657,21; 
printf("baskets 3"1; 
poke(656,01; 
poke(657,301; 
printf ("BEE "1; 
printf("Xd",hi!; 

$1 

Screensetupd 

$( 

open(6,28,5,"5;"l; 
b=dpeek(5601; 
poke (752,11; 
while (peek(b)!-66) 

++b; 

poke(b,701; 

P0ke(b+3,61; 
poke(b+4,61; 
poke(b+5,6); 

Startganed; 

$1 

naind 

$( 

hi=0; 

vhile (5>2! 

$( 

Screensetupd; 
Ballstartd; 
while (baskets>01 
$( 

Delay (1; 

if (peek(key!!=255! 

Maitd; 

Delay d; 
st=stick(01; 
if (5t==left) 

Lef toned; 
else 

if (st==rightl 
Rightoned; 
color(0l; 
plot(balx,baly); 

++a; 

if (a)ll 
$( 

++baly; 

a=0; 

$1 

color(11; 
Plot(balx,balyl; 
if (baly==dovnl 
Catchcheckd; 

$1 /*end of baskets0 */ 


SWAP MEET 


/# This gets executed when the gane */ 

/* is over (equivalent to the */ 

/* GAfEOVER routine in BASIC) */ 

for(a=100;a<=200;a=a+10) 

$( 

sound(l,a,10,10); 
for(st=l;st <=40;++st) 

Delayd; 

$) 

sound(1,250,12,101; 
for(a=i;a<=254;++a) 

Delayd; 
sound(1,0,0,01; 
if (hi(catches! 
hi=catches; 

$1 /* infinite loop */ 


; ORANGES IN ACTION 
; BY DALE LUTZ 18/6/84 

; GLOBAL VARIABLES, ETC. 

BYTE a,plate,balx,baly,key=764,st 
CARD b,catches,baskets,hi 
DEFINE dOWn="3S", 
screenwidth="77", 
left="ll", 
right="7" 


PROC Delayd 
FOR b=l TO 300 
DO 
OD 

RETURN 

PROC Maitd 
FOR a=i TO 100 
DO 

Delayd 

OD 

key=255 
WHILE key=255 
DO 
OD 

key=255 

RETURN 

PROC Toned 

Sound(1,81,10,10! 

FOR a=l TO 30 

AMAZON PARK 
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DO 

Delayd 

OD 

Sound(1,0,0,0) 

RETURN 

PROC Lef toned 
Color=8 

Plot (platen, down) 
Plate==-l 
IF plate<2 THEN 
plate=78 
Plot(1,dovn) 

DravTo(3,dovn) 

Color=2 
Plot(76,down) 

DravTo(79,down) 

ELSE Color=2 
Plot(plate-1,dovn) 

FI 

RETURN 

PROC RightoneO 
Color=0 

Plot(plate-l,dovn) 
plate==+l 
IF plate>78 THEN 
plate=2 
Plot(75,dovn) 

DravTo(79,dovn) 

eolor=2 

Plot(l,dovn) 

DravTo(3,dovn) 

ELSE Color=2 
Plot (platen, dovn) 

FI 

RETURN 

PROC Ballstart() 
balx=Rand(screenvidth)+2 
baly=l 
RETURN 

PROC CatchcheckO 
Color=0 

IF balx-plate<2 OR plate- 

catches-r+i 

Colors 

Toned 

ELSE baskets==-i 
Sound(1,188,8,10) 

FOR a=i TO SO 
DO 

Delay() 

OD 

Sound(l,0,0,0) 


ORANGES 


FI 

Plot(balx,dovn) 
Poke(656,0) 

Poke(657,10) 
PrintC(catches) 

Poke(656,1) 

Poke(657,10) 

PrintC(baskets) 
BallstartO 

RETURN 

PROC StartyaneO 
BYTE flasher=711 
baskets=3 
catches=0 
Put(125) 

Poke(656,1) 

Poke(657,25) 

Print ("PRESS fire") 
Poke(656,6) 

Poke(657,26) 

Pr i nt ( l< Bf8Hil»fJbj >< i 
Sound(0,250,10,10) 
jSound(1,252,10,10) 
WHILE 5trig(0)=l 
DO 

Delay () 
flasher==+l 
Delay () 

OD 

Sound(0,0,0,0) 

Sound(1,0,0,0) 
flasher=70 
Plate=39 
Put(125) 

Poke(656,0) 

Poke(657,2) 

Print("CATCHES 0") 
Poke(656,1) 

Poke(657,2) 

Print("baskets 3") 
Poke(656,0) 

Poke(657,30) 

Print("GfflBS ") 
PrintC(hi) 

balx<2 THEN RETURN 

PROC Screensetupd 
CARD dlist=560 

6raphics(5) 
b=dli5t 
Poke(752,1) 

WHILE Peek (b) 066 
DO 

b==+l 

OD 


Poke(b,70) 

Poke(b+3,6) 

Poke (bn, 6) 

Poke(b+5,6) 

StartyaneO 

RETURN 

PROC naind 
hi=0 
DO 

Screensetupd 
BallstartO 
WHILE baskets>0 
DO 

Delayd 

IF key0255 THEN Waitd FI 

Delayd 

5t=stick(0) 

IF st=left THEN Leftoned 
ELSEIF st=right THEN Rightoned 
FI 

Color=0 

Plot(balx,baly) 
a==n 

If a>l THEN baly==+l a=0 FI 
Color=l 

Plot(balx,baly) 

IF baly=dom THEN CatchcheckO FI 
OD 

; This gets executed vhen the gane 
j is over (equivalent to the 
; GANEOVER routine in BASIC) 

FOR a=100 TO 200 STEP 10 
DO 

Sound(l,a,10,i0) 

FOR 5t=i TO 40 
DO 

Delayd 

OD 

OD 

Sound(1,250,12,lO) 

FOR a=l TO 254 
DO 

Delayd 

OD 

Sound(l,0,0,O) 

IF hi(catches THEN hi=catches FI 
OD ; infinite loop 
RETURN 


SWAP MEET 
AMAZON PARK 
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SCR # 


20 


FORTH 


WALDEN’S C 


00 < scr# 21 ORANGES 2/7 > 

01 

02 : RIGHTONE O COLOR plate @ DUP 1 
03 — down PLOT 1 + DUP plate 1 78 > 
04 IF 2 plate ! 75 down PLOT 79 
05 down DRAWTO 2 COLOR 1 down PLOT 
06 3 down DRAWTO ELSE 2 COLOR 
07 plate @ 1 + down PLOT THEN ; 

08 

09 : BALLSTART BEGIN 53770 C@ 2 + 

OA DUP balx ’ screenwidth < UNTIL 1 
OB baly ' ; 

OC 

OD : CATCHCHECK O COLOR balx @ 

OE plate @ - ABS 2 < IF catches 0 1 
OF + catches ’ 2 COLOR TONE ELSE 

10 baskets 0 1 ~ baskets ! 1 100 8 

11 1O SOUND 50 1 DO LOOP 1000 

12 SOUND THEN balx 0 down PLOT 0 65 

13 6 C' 10 657 C! catches 0 . 1 656 

14 Cl 10 657 C! baskets 0 . 

15 BALLSTART ? 

16 

17 711 CONSTANT -flasher 

18 : STARTGAME 3 baskets ! O 

19 catches ' 125 EMIT 1 656 ! 25 

1A 657 ! ." PRESS fire ” O 656 ! 

IB 26 657 ! ." oranges " O 250 10 
1C lO SOUND 1 252 10 10 SOUND BEGIN 
ID DELAY flasher C@ 1 + flasher C! 
IE O STRIG NOT UNTIL O O O O 

IF SOUND 1 O O O SOUND —> 


SCR # 22 

OO ( scr# 22 ORANGES 3/7 ) 

01 70 flasr.er C! 39 plate ! 125 

02 EMIT O 656 C! 2 657 C' 

03 . H CATCHES O " 1 656 C! 2 657 C! 
04 . M baskets 3 " O 656 C! 30 657 

05 C! ."high " hi 0 . ; 

06 

07 : SCREENSETUP 5 GR. 560 0 b ! 

08 BEGIN b 0 1 + DUP b ! C@ 66 = 

09 UNTIL 70 b 0 C! 6 b 0 3 + C! 6 
OA b 0 4 C! 6 b @ 5 + C! 

OB STARTGAME ; 

OC 

OD : ORANGES DX O hi ! BEGIN 
OE SCREENSETUP BALLSTART BEGIN 
OF DELAY 764 C@ 255 = NOT IF WAIT T 

10 HEN DELAY O STICK DUP left = IF 

11 LEFTONE THEN right = IF RIGHTONE 

12 THEN O COLOR balx 0 baly 0 PLOT 

13 a 0 1 -*■ DUP a 1 1 > IF baly 0 1 

14 ■* baly ! O a ! THEN 1 COLOR 

15 balx 0 baly 0 PLOT baly 0 down - 

16 IF CATCHCHECK THEN baskets 0 0 

17 = UNTIL 200 100 DO 1 I 10 10 

18 SOUND 40 1 DO DELAY LOOP lO 

19 +LOOP 1 250 12 10 SOUND 254 1 DO 


SCR # 23 

OO ( scr# 23 empty block 1/1 ) ;S 

01 
02 
03 
04 
05 
06 
07 
08 
09 
OA 
OB 
OC 
OD 
OE 
OF 
10 
1 1 
12 

13 

14 

15 

16 

17 

18 
19 


A 

SCR # 21 

00 < scr# 20 ORANGES 1/7 > 

01 DX < set to decimal mode ) 

02 ( define constants ) 

03 11 CONSTANT left 

04 7 CONSTANT right 

05 39 CONSTANT down 

06 77 CONSTANT screenwidth 

07 ( initialize variables ) 

08 O VARIABLE a O VARIABLE balx 

09 O VARIABLE st O VARIABLE baly 

OA O VARIABLE b O VARIABLE hi 

OP O VARIABLE plate 

OC O VARIABLE catches 
OD O VARIABLE baskets 
OE 

OF : DELAY 50 1 DO LOOP 5 
10 

11 : WAIT 255 764 C! 1OO 1 DO LOOP 

12 BEGIN 764 C@ 255 = NOT UNTIL 

13 255 764 C’ ; 

14 

15 : TONE 1 81 10 10 SOUND 30 1 DO 

16 DELAY LOOP 1000 SOUND 5 

18 : LEFTONE O COLOR plate 0 DUP 1 

19 + down PLOT 1 - DUP plate ! 2 < 

1A IF 78 plate ! 1 down PLOT 3 

IB down DRAWTO 2 COLOR 76 down PLOT 
1C 79 down DRAWTO ELSE 2 COLOR 
ID plate 0 1 - down PLOT THEN 5 
IE 

IF —> 


1A DELAY LOOP 1 O O O SOUND hi 0 
IB catches 0 < IF catches 0 hi 1 
1C THEN 0 UNTIL ; 

1 D 
IE 

IF ;S 


SWAP MEET 
AMAZON PARK 


Ttie normal way of testing a function’s speed 
is to call it a given number of times and see how 
long it took. The problem with this approach is 
that seme functions may take a few split, seconds to 
execute, and others could take several minutes. In 
the program SPEFD.C, two functions are called 
repeatedly for a given number of seconds and then 
the results are compared. This way you know the 
computer will only be tied up for a given length of 
time, and you can easily test two different ways oi 
programing the same function, and compare the 
results. It operates on the more is better 
princi]»l; the more repetitions you get, the faster 
your function is. Because the computer does a lot 
of housekeeping chores while it's running your 
program, the results will vary slightly even when 
calling the same function. A difference of less 
than 10 percent between the functioas wi ]1 probably 
not be significant. 

SPEED.RAS is a similar program written in 
BASIC. For a lot of reasoas (too nmy to explain 
in this article) the timing rim is limited to 4 
seconds for each function. Because? BASK! is slow 
to begin with, you will not be able to put in 
complex functions and have it run in under 4 
seconds. This program is mainly for comparison to 
C. However, I did run it on a variety of BASIC's, 
and you nay be interested in the results. Ibis 
benchmark calls a null function (all it does is 
return). 

Atari BASIC - 267; BASIC XL - 403/714 
(normal/fast mode); BASIC XI. with NTV.H • rASiniL’ - 
530/876; BASIC XE - 349/603/972 
(normal/extensions/fast); DEEP PI It, C - 1,237; 
WC/65 - 4,807. 


188 REM SPEED.BAS - TEST FUNCTION 5PEE 
D 

110 60T0 168:REM MAIN LOOP 
128 REM TE5T1 

1J8 RETURN :REM PLACE FUNCTION HERE, A 
ND END HITH A RETURN 
148 REM TE5T2 

150 RETURN :REN PLACE FUNCTION HERE, A 
HD END NITH A RETURN 
168 REP1=8:REP2=8 

170 POKE 28,8:REM CLEAR SYSTEM CLOCK 
188 GOSUB 130:REPi=REPi+l:IF CPEEK(28) 
<2483 THEN 188:REN RUNS FOR 4 SECONDS 
ISO POKE 20,8:REM CLEAR SYSTEM CLOCK 
288 GOSUB 138:REP2=REP2+i:IF (PEEK(283 
<2483 THEN 288:REM RUNS FOR 4 SECONDS 
218 ? :? "TESTl = ";REP1;" repetitions 

228 ? :? "TE5T2 = ";REP2;" repetitions 

i« 

238 ? 

248 IF (REPDREP23 THEN ? "TESTl is fa 
ster then TE5T2." 

258 IF (REP2)REP13 THEN ? "TE5T2 is fa 
ster then TESTl." 

268 IF (REP2=REP13 THEN ? "TE5T2 and T 
E5T2 are the saNe" 
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FURTRADER FROM UK ATARI USERS GROUP 


5 OPEN ffl,4,8,"K:" 

6 HK=5:CF=58:0F=188:RF=288:H=7:0=7;F=5 
:M=188:T=8 

7 ? "N" 

17 TRAP 18888:GOTO 7888 
25 GRAPHICS 8 

J8 POSITION 8,3:? “YOUR COMMANDS ARE : 

ii 

48 ? :? "<1> LOOK FOR TRA0IM6 POST.” 

58 ? :? »<2> GO TO BED." 

68 ? :? »<3> EAT/DRIMK FOOD AMO MATER. 

ii 

78 ? :? “<4> FOOD/HUNGER/REST/STORES C 
K.” 

98 POSITIOM 8,14:? "COMMANDS AT TRAOIM 
G POST OHLY 

138 ? :? »<5> SEE GOIMG EXCHANGE RATE. 

ii 

148 ? :? »<6> MAKE A OEAL.” 

158 POKE 764,255:POSITION 8,21:? "MHAT 
IS YOUR COMMAND ?”:INPUT A 
178 IF INTCAJOA OR A<1 OR A>6 THEN 98 
28 

188 IF TOi ANO A>4 THEN 9848 
185 IF A=6 ANO ERV=8 THEN 9888 
198 ? "N" 

288 GOTO (A*18881 

1888 IF INTCCRN0C1)*18)+1)>6 THEN 1588 
1818 T=1 

1828 POSITION 8,8:? "CONGRATULATIONS . 

YOU NAVE FOUNO A TRADING P 

05T.”:? 

1825 A=INTCRN0fiJ*2)+l 
1835 IF A=i THEN F=FU:? "YOU ALSO MAN 
A6E0 TO REFILL YOUR STORE OF F 

000 ." 

1845 GET Ml,Y:GOTO 17 
1588 T=8:POSITION 8,11:? "BAO LUCK.YOU 
010 NOT MANAGE TO FINO A TRAOING 
POST ANYMHERE ." 

1515 GET 81,Y:GOTO 17 

2888 A=INT(RN0(1)*5)+1 

2885 IF AOl THEN 0=7 

2818 POSITION 8,18:? "MIGHT,MIGHT.DON* 

T LET THE BUGS BITE." 

2811 GET 81,Y 

2812 IF A=1 THEN POSITION 8,15:? "THE 
BEO BUGS BIT ANO YOU 010 NOT MANAGE TO 

GET ANY SLEEP !!" 

2813 IF A=1 THEN POSITION 8,17:? »":P0 
SITION 18,5:? " IT Tl IT IT 71 f|»:FO 
R AA=1 TO 1888:NEXT AA 

2828 GOTO 17 

3888 IF F<>8 THEN POSITION 8,11:? "YOU 
HAVE NOM TAKEN THE LOAO OFF ONE 
PACKHORSE.":H=7 

3828 IF F=8 THEN POSITION 8,11:? "BAO 
LUCK,THERE IS NO FOOO LEFT." 


3838 IF F<>8 THEN F=F“1:GET 81,Y 
3848 GOTO 17 

4888 ? "FOOO / HUNGER / REST / STORES 
CK" 

4818 POSITION 8,3:? "YOU HAVE ";HF;" H 
AGGIS FURS." 

4838 ? :? "YOU HAVE ";CF;" COYOTE FURS 

ii 

4«5« ? :? “VOII HIVE ";0F;" OCELOT FURS 

II 

4878 ? :? "YOU HAVE ";RF;" RABBIT FURS 

ii 

4888 POSITION 8,12:? "YOU CAN SURVIVE 
";0;" COMMANDS MITHQUT ANY FOOO." 

4188 ? :? "YOU HAVE ";F;" PACKHORSES 0 
F FOOO ANO HATER." 

4128 ? "YOU CAN SURVIVE "jO;" COMMANOS 
NITHOUT ANY REST." 

4125 POSITION 8,21:? "YOU NOM NAVE *"; 
M 

4138 GET HI,Y 

4148 GOTO 17 

5888 IF ERV=1 THEN 5848 

5885 HFP=INT(RM0(1)*48)+61 

5818 CFP=INT(RN0(1I*38)+31 

5828 0FP=IMT(RN0fl)«28)+ll 

5838 RFP=IMT(RNO(13*18)+1 

5848 POSITION 8,1:? "EXCHANGE RATE :" 

5858 POSITION 8,4:? "HAGGIS FUR = *";H 

FP 

5868 POSITION 8,8:? "COYOTE FUR = 4";C 
FP 

5878 POSITION 8,12:? "OCELOT FUR = 8"; 
OFP 

5888 POSITION 8,16:? "RABBIT FUR = 8"; 
RFP 

5898 GET Ni,Y 
5895 ERV=1 
5188 GOTO 17 

6888 POSITION 8,4:? "YOU HAVE ";HF;“ 
HAGGIS FURS" 

6818 POSITION 8,8:? "YOU HAVE ";CF;" 
COYOTE FURS" 

6828 POSITION 8,12:? "YOU HAVE ";0F;" 
OCELOT FURS" 

6838 POSITION 8,16;? "YOU HAVE ";RF;" 
RABBIT FURS" 

6835 POSITION 8,8;? "YOU NOM HAVE A TO 
TAL OF 8";H 

6848 POSITION 8,28:? "HOH MANY HAGGIS 
FURS HILL YOU SELL ?” 

6845 IF HF<=8 THEM 6898 
6858 INPUT X:X=INT(X) 

6868 IF X>HF0RX<8 THEN 6858 

6878 M=M+(X*HFP):POSITION 25,8:? M;” 

ii 

6888 HF=HF-X 

6885 POSITION 9,4:? HF;" » 

6898 POSITION 9,28:? "COYOTE FURS" 
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68J5 IF CF<=R THEN 6141 
6118 INPUT X;X=INT(X) 

6118 IF X)CF0RX<8 THEN 6188 

6128 M=H+(X*CFP):POSITION 25,8!? H;" 

II 

6138 CF=CF-X 

6135 POSITION 9,8:? CF;" " 

6148 POSITION 9,28:? "OCELOT FURS" 

6145 IF 0F<=8 THEN 6188 
6158 INPUT X:X=INT(X) 

6153 IF X>0F0RX<8 THEN 6158 

6168 M=M*{X*OFP):POSITION 25,8:? M;" 

II 

6178 OF=OF-X 

6175 POSITION 9,12:? OF;" » 

6188 POSITION 9,28:? "RABBIT FURS" 

6185 IF RF<=8 THEN 6228 
6198 INPUT X:X=INT(X) 

6195 IF X>RF0RX<8 THEN 6198 

6288 H=M*(X*RFP):POSITION 25,8:? M;" 

ii 

6218 RF=RF-X 

6215 POSITION 9,16:? RF;" » 

6228 POSITION 9,28:? "HAGGIS FURS HILL 

YOU BUY ?" 

6225 IF CM<HFP) THEN 6278 
6238 INPUT X:X=INT(X) 

6248 IF (X*HFP)>M0RX<8 THEN 6238 
6258 M=M-fX#HFP):POSITION 25,8:? M;” 

ii 

6268 HF=HF+X:POSITION 9,4:? HF;" " 
6278 POSITION 9,28:? "COYOTE FURS" 

6275 IF (M<CFP) THEN 6328 

6288 INPUT X:X=INT(XI 

6298 IF CX*CFP1>M0RX<8 THEN 6288 

6388 M=H-{X*CFPJ:POSITION 25,8:? H;" 

ii 

6318 CF=CF*X:POSITION 9,8:? CF;" » 
6328 POSITION 9,28:? "OCELOT FURS" 

6325 IF (M<OFP) THEN 6378 
6338 INPUT X:X=INT(X) 

6348 IF CX*0FP)>MQRX<8 THEN 6338 
6358 M=H-{X*OFP):POSITION 25,8:? M;" 

ii 

6368 OF=OF*X:POSITION 9,12:? OF;" " 
6378 POSITION 9,28:? "RABBIT FURS" 

6375 IF (M<RFP) THEN 6428 
6388 INPUT X:X=INT(X) 

6398 IF (X*RFP3>N0RX<8 THEN 6388 
6488 H=M-(X»RFP):POSITION 25,8:? M;» 

ii 

6418 RF=RF+X:POSITION 9,16:? RF;" » 

6415 T=8;ERV=8:G0T0 17 

7888 ? "N":0=D-l:H=H-l 

7828 IF H<8 THEN 8828 

7838 IF D<8 THEN 8888 

7848 IF INT(RNA(1)*125)>5 THEN 7288 

7858 HF=HF-INTfRND(l)*CHF/2l) 

7878 CF=CF-INTCRN0Cl)*fCF/2)) 

7898 0F=0F-INT(RN0(l)«(0F/2)) 

7118 RF=RF-INTCRNDC1)*CRF72)) 

7138 POSITION 8,9;? "SOME ROBBERS JUST 



ST LIBRARY 

We have some additions to our ST Library: 3 new Basic programs: 
Calc.bas, Labels.bas and Title.bas. The Calc program is a 4-function 
calculator. 

One new ST Writer application: STWCON.TOS and XYZZX.TXT. 
This program purports to be able to configure ST Writer for whichever 
printer you may desire to use. 

Two new sound files: Newsin.prg (draws sine waves and makes 
sound at the same time — demo), and Evita.sng (to be used with the 
MIDIDEMO.PRG — you also need a synthesizer!) 

One new ST Paint program: Degasneo.prg. This one will translate 
picture files drawn with DEGAS into a format usable by ST Paint. 

One game: MEGAROIDS (Megaroid.prg and Megaroid.rsc). This is 
an implementation of the classic Asteroids game written in MegaMax 
C. It's a good advertizement for the MegaMax product. 

MORE RUMORS: Atari has sold 90,000 STs. The ST is the best¬ 
selling computer in France and Germany. The Atari ST is outselling 
Macintosh 6:1 and C-Amiga 30:1. Is multitasking important to you? The 
Atari ST hardware supports multitasking as well as any 68k system. 
OS/9-68k is being ported over. Atari is working on a multitasking OS. 
DRI is shippiing to OEMs its Concurrent DOS 68k. 

The Atari ST is expandable to 256 megabytes of RAM through its 
DMA port (SASI compatible). Is this expandable enough for you? 

Les Ellingham, of Page 6 in the United Kingdom, says their version 
of GEMDOS "has a bug which prevents opening folders with 8-letter 
file names." I'm surprised. Come on. Atari, let's get that TOS on ROMs! 

PC Inter/Comm (Mark of the Unicorn, $99 discounted) is a great 
telecommunications program. It's as good, if not better, than anything 
I've seen for the IBM PC. In fact, I believe it was ported over from the 
IBM PC version. It's entirely menu-driven from the keyboard, or you can 
bypass many menu selections directly with commands as you learn 
them. 

There are probably more than 100 commands and options and 
parameters you may select while using this program. The best features 
of this program include the ability to set up configuration files for any 
system you may call. Just load in a pre-configured set up and press Alt- 
D RETURN and the phone dials away. A version of the Xmodem protocol 
is available which uses cyclical redundancy checking. It will also use 
the Kermit protocol, as well as "Raw" and "ASCII". 

One really marvelous feature is demonstrated by the way in which 
I now transmit the ACE Newsletter file to the typesetter. I go to bed 
one night after having run up PC Inter/Comm and loading in my 
"Callup.ic" file. I type Alt-T RETURN and go to sleep. At 2.30 am, the 
Atari ST takes the phone off-hook (oh yes, I had to turn on the modem, 
too), dials the number. Any log-on procedure is completed (which may 
include the exchange of passwords), the file is uploaded (a file may be 
downloaded instead, or in addition?). When finished, the logoff protocol 
is executed, the phone put back on hook, and the Atari ST goes back 
to sleep! What do you think of that? Two Atari STs, running this same 
software could each perform these tasks without a human at either end! 
As you can tell, I'm really bowled over by this feature. 

If you're on a BBS and you're reading messages or bulletins, 
sometimes you might say to yourself, "I wish I had my buffer open. 

I wanted to save that!" This program puts the history of your terminal 
session into a buffer. You can page backwards through this history, even 
if it's been scrolled off the page. You can edit and save parts of the 
history. 

The program emulates a DEC VT102 terminal. The F1-F4 keys 
function just like the VT102 unless you define new values to them. You 
may also assign values to F5-F10 and Shift F1 -Shift F-10. Some words 
or phrases you use alot? Just assign them to a function key. Passwords, 
names, city and state, etc. are my candidates. 

The manual includes about 1 30 pages, including an extensive table 
of contents. The material is well-indexed. The program is a bit spendy 
for most Atari users, probably. But if you can spring for the money, you 
won't regret it. One glaring defect: You are not able to read a disk 
directory from within the programO?) I can't imagine how this feature 
was omitted. I've not yet seen a terminal program which didn't have 
this ability. I'm sure they will add this feature in the next update, and 
in fact I've heard they intend to do just that thing. The only other thing 
I can think of to add to this program is to permit the user to select colors 
for the screen, or perhaps to play some background music while the 
program's running. Maybe it can be made to turn on the microwave and 
warm up a snack.... 

InSoft Newsletter (1834 Beacon St., #1, Brookline, MA 02146 
617-739-9012. $45/6 issues; $70/12 issues) is a newsletter on disk 
devoted entirely to the Atari ST. The November, 1 985 issue has 1 9 files 
including executable programs, source code files and document files for 
each program. They have news, editorials, reviews and rumors. For less 
than $6 an issue you get a disk as well as all the goodies. I'm unclear, 
but there might be a paper newsletter included. Check this one out. Its 
future has possibilities. 

— Jim Bumpas 
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STuff 

Neil Harris spoke to a user group back east on October 1 3 with some 
interesting items. He says Atari has a 3.5" drive which works with the 
XE machines. Atari is considering the feasibility of changing over to this 
new drive for the 8-bit line. The AMY chip for the XEM has been licensed 
to a third party to complete development. Atari retains the right to use 
the final chip in any product they choose. 

Two expansion boxes for the ST he says might appear in 1 986. One 
is an eight slot box which plugs into the DMA port. Extra memory and 
other goodies can make use of this item! The other is a full 32-bit 
computer in a box to plug into the ST. It will only add crunching power. 
The graphics, I/O, etc. will still be handled by the ST. Harris finished 
off by saying Atari has some advanced technology in their labs right 
now which will knock your socks off. He says it can be ready for market 
in a hurry, too, pointing to how fast the XE and ST lines got to market. 

Next year should be very exciting for the Atari world. Can we stand 
it after all the excitement of 1985? 

The C-Amiga was at our November meeting. I invited a local 
Commodore dealer to demonstrate the machine because of the wide¬ 
spread interest in this machine among Atarians. I must say the graphics 
capability of the development system they used was very impressive. 

I don't know why they didn't bring a production machine. I haven't seen 
anything on the Atari ST yet to match the best of what they showed. 

I do think our Atari Waterfall is better than the waterfall they showed. 

But they showed an animated scene called "Robocity" with 5 
independent objects moving around on the screen at once. Another 
animation was the eagle flying across the screen, making eagle noises. 
Most of the graphics demos were in low resolution (320x200). The 2 
or 3 high-res demos did have a noticeable flicker at 640x400 interlaced 
mode, but the detail was very impressive. They did not show two of 
these high-res pictures in a row. They seemed to have to re-boot after 
each one. 

One demo was a speech synthesis of 3 or 4 words which required 
the entire memory of the C-Amiga to produce. The sample rate must 
have been very high because the sound was almost audio quality! 

They didn't demonstrate any applications software. They only had 
graphics and a couple of games which were not finished from Electronic 
Arts (Firefox and Arctic Fox — similar games). Asked about business 
applications they said to use a C-Amiga in business is a waste of a great 
game machine. They called it a "super-Atari". In my opinion, the display 
of text characters is not as good as on my color ST system. And nothing 
on the market touches the Atari ST monochrome system for text display. 

The C-Amiga does not come with any software for you to use. You 
must buy it all extra. They don't have anything equivalent to the free 
ST Writer, ST Paint, LOGO and BASIC which we get with our ST 
purchase. And the C-Amiga operating system does not have a terminal 
emulator to use for telecommunication. How much does a C-Amiga 
cost? $1295 for the 256k console and 1-meg drive; $199 for thf 
upgrade to 512k; $495 for the RGB monitor. $1,989.00 including nc 
software. I don't think the machine has a market niche at that price. 
They're selling it as a game machine, but pricing it in the business range. 
I'm using my Atari ST >n business, and waiting for some great games 
to play! 

ST-SIG: We have 1 5 ST users in our local special interest group 
here in Eugene. About Vs of the group bought the ST as their FIRST 
computer! If this trend is general, then Sam Tramiel is correct that this 
machine will revitalize the pc market. About V* of us are using the 
machine primarily or exclusively in business. 

SPECIAL OFFER: If you share an ST program which you've written 
and you find useful and/or amusing share it with the rest of us. If you 
send it on a disk with a little article describing it, we'll return you a disk 
with your choice of material from our ST public domain library. 

Here's a little task which might set you to work: Find a way to 
access the Time and Date functions which the OS keeps track of from 
within ST Basic. The first one to come up with the answer to this problem 
will receive in trade for executable code on a disk a copy of one of our 
public domain disks. 

ST 5.25" DRIVES 

I own and love my 520 ST. I found an easier way to hook up a 5.25" 
drive to it. Open the 3.5" drive and very very gently remove the ribbon 
cable and connectors. Replace the ribbon cable with a 4 or 5 foot long 
one using the original connectors. As Dave Small showed in November 
Antic, find pin 6 of the incoming plug. Make a jumper to wire 1 2 of the 
robbon cable past the connection to the 3.5" drive. Set up the 5.25" 
drive as Dave Small indicated with a 34 pin crimp-on edge connector 
($4.95 at Radio Shack). Oddly, Radio Shack no longer carries 34 wire 
ribbon cable. 

Dave Small was not quite correct in saying you can not format a 
40 track drive. I hooked up an MPI52 40 track double sided drive, cutting 
one trace as Gary Sewell of Dallas ACE had told me. When you format 
a 40 track drive, the 40th track is formatted 41 times and the ST will 
think it can put 720k on the disk. As long as you don't try to put more 
than 340k (39 tracks worth) on the disk, no problem is found writing 
to the disk! 


- W. M. Frank 



TOKEN BASIC 

(by Les by Gum; reprint: P.A.C.E. World, June, 1985) 

One of the mystery words which keeps cropping up in Atari talk is 
OKENISATION. This is a subject which is never explained. Yet it is very 
portant to Basic. The reason it isn't discussed is because you don't 
"really need to understand it. (What is this man talking about? I hear you 
say.) 

Well, tokenize is just the way the computer stores your program. 
If you were to type a line such as: 

10 FOR 1 = 1 TO 6 

The line is not stored exactly like that. If you could look at this line 
in the computer memory you would not recognize it. It is complete 
gobble-de-gook. 

How can you look at the program in memory? Well, the actual 
address where it is stored on an 8-bit Atari can be found using the 
following: 

? PEEK(1 36) + 256 * PEEK (1 37). 

Type this and press Return. The number given is the start address 
of your program. 

Tokenisation is a matter of substituting codes for words. . . . 

The Atari takes key words such as FOR, NEXT, GOTO, etc. and puts 
a number in memory in place of them. When you print a LIST on screen, 
the Atari looks at the code numbers and puts the correct word in place 
on the screen. 

The word FOR appears in memory as the number 8, while NEXT 
is number 9. 

Now type NEW and Return. Type in the following program: 

10C = 0 

20 D = PEEK(1 36) + 256*PEEK(1 37):T = 0 

30 OFFSET = PEEK(S + C + 2):F = 0 

40 ? PEEK(S + C);" ";:F = F + 1 

50 IF F = OFFSET THEN 70 

60 C = C + 1:GOTO 40 

70 T = T + 10:IF T= 100 THEN END 

80 POKE 764,255:? :? "PRESS KEY" 

90 IF PEEK(764) = 255 THEN 90 
100 ? :? :C = C + 1:GOTO 30 

If you run this program it will print the program one line at a time 
showing you what the line looks like in storage. 

To print each successive line, press Return. 

The line numbers are stored in two bytes. The first is the LOW byte 
of the number, the second is the HIGH byte. Number 10 is simply 10 
1 0. A large line number like 18440 is first divided y 256 to get the 
JH byte. The remainder is the LOW byte: 

18440/256 = 72.03125, so 72 is HIGH. 

72*256= 18432, so 18440-18432 = 8. 8 is the remainder and is 
also the LOW byte. 

Try this the other way around. If you see the number 8 in the 1st 
byte and 72 in the 2d byte then multiply 72*256 and add 8. The answer 
is 18440. 

The third byte of the line gives the total number of bytes in that line, 
this total includes the 2 bytes of the line number. The number will be 
1 5. Count the bytes on the screen. From byte one (10) to the last byte 
(22) is 15. 

The fourth byte is the number of bytes in the first statement. This 
line only has one statement (C = 0), so the total is the same (1 5) as the 
previous byte. Where a line has more than one statement this fourth 
byte will be less than byte 3. 

The fifth byte in our example is the token for the word LET (54). 
If you actually put the word LET in the program this number will be 6. 
Confused? Worry not. It is for the sake of a Listing that there are 2 
numbers meaning LET. Number 6 will make the Atari print the word LET 
in the list. The number 54 means this is LET but don't print it out. 

Byte number 6 is the token for the variable "C". Everytime you enter 
a new variable it is given a number starting at 128. As C is the fist 
variable it has come across, it is tokenized as 128. The next different 
variable it finds will be given the number 129 and so on. 

Byte 7 is the token for " = " (equal sign). 

Byte 8 tells the computer a numeric constant follows. 

The next 6 bytes (9 to 14) are reserved for the value of the numeric 
constant. So each time you create a new variable you lose 6 bytes which 
saves the value you assign to it. You also use some extra memory storing 
the variable name. 

Byte 1 5 is the last byte of this line and the number 22 tells Atari 
"that's the lot". 

Press Return to display line 20 of the program. Line 20 has two 
statements in it. 
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Byte 3 is the total bytes in the entire line. 

Byte 4 is 37 which means there are 37 bytes in the first statement. 
If you count 37 bytes from the start you will see the number 20 which 
shows the end of the first statement, this being the token for colon (:). 

In the second statement in this line the first byte (byte 38) is the 
total count of bytes from start to end. You will see it is the same as 
byte 3. 

After each statement terminator (token 20) the Atari expects a 
count of the number of bytes so far plus how many are in the next 
statement. If this number matches byte 3 then it knows this is the last 
statement on the line. 

With all these constant checks is it any wonder we keep getting 
error messages? Still it's a good idea. It does help to make you get it 
right before running. As far as possible anyway. 

Now that you have learned all this about tokenization, what use will 
you put it to? I don't know any use for it either, but it's all good fun. 
get in there and Poke a few random numbers into memory. See what 
Atari makes of that! Hah! Bet it can't make head nor tail of it. 

KARATEKA 

by Jordan Mechner, Broderbund software 

KARATEKA is a super animated game. I am not a karate expert by 
any means but this game is easy to play and hard to win (that is to rescue 
the maiden in distress). 

The objective is to rescue "MARIKO" the maiden To be able to do 
this you have to fight all kinds of warriors differently skilled in different 
karate levels one at the time till in the end you have to fight the master, 
before you can open the door to rescue her. 

The one thing 1 personally did not find too easy was that the control 
with the stock atari joysticks was inconsistent at best, but not to fret 
there is also a keyboard option for control of your fighter which I had 
a lot more control with, and used throughout my endeavor with the 
game. 

Technically I think the game is superior to most games I have seen 
of late. The movie-like story seems well thoughtout. The characters 
move very smoothly, which gives the impression of a lifelike scenario. 

The backgrounds scroll with your movements, to give a realistic 
effect. The fighting stances seem like the real thing (I dont know karate). 
So if you are into animation or Karate or both I highly reccomend 
Karateka. It really is fun. 

- ROBERT COOK 
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QUICK PRINT 

Word processors are marvelous, but they have their limitations — 
especially for doing simple jobs. Suppose you want to address an 
envelope. In most cases it is easier to use a typewriter than a word 
processor. With AtariWriter you need to boot the program, set the 
margins, type the text, move to the print menu, set some of the printing 
parameters, and finally, print. For some word processors, the procedure 
is even more complicated. You may have to create a text file, save it 
to disk and then set up the print parameters before printing. 

QUICK PRINT is written for those small printing jobs such as 
addressing an envelope or writing a memo. It allows you to use your 
computer and printer like an electronic typewriter. The main difference 
is that Quick Print processes one line at a time rather than just one 
character. 

Turn on your printer before you run Quick Print. When you 
successfully run Quick Print, you will be prompted for the left and right 
margins. Type the left margin, comma, the right margin, and RETURN. 
Quick Print will accept numbers between 1 and 80 as legitimate input. 
Error trapping should take care of any goofs or slips of the fingers. With 
proper input you will see a colored line on the screen with the cursor 
at the beginning of the line. The length of the line will equal the difference 
between your right and left margins. If the length of your line is more 
than 40 characters, the colored line will be more than one screen line 
(assuming a 40-column screen). As you type, the position indicator will 
display the cursor position along the line. If you type beyond the length 
of the colored line, you will go outside your margins. A warning bell will 
sound when you are five characters from the end of your line and you 
will need to press the Option key to release the margin if you wish to 
add a few characters beyond the length of the line. If you want to reset 
the margins, press Select. 

Suppose you want to address an envelope. Set the left margin at 
about 40 and the right margin at about 75. Then you will see a colored 
line on the screen which is 35 characters long. Position the envelope 
in the printer, and type the name. You may edit the name using the 
screen editor before hitting Return, but when you hit Return, the name 
will print and a new colored line will appear on the screen for the first 
line of the address. And so on. By pressing Option, you may type a few 
characters beyond the colored line without ill effects. It is similar to 
hitting the margin release on a regular typewriter. But if you enter too 
many characters beyond the margin your printer may break your line 
at the wrong place. 

In the BASIC program listed, a vertical blank interrupt (VBI) is used 
to update the cursor position, to ring the warning bell and to determine 
when Option and Select are pressed. Subroutine 9000 POKEs the 
vertical blank interrupt into memory. The assembly language subroutine 
developed with MAC/65 is shown separately. It is for your information 
only as all the necessary DATA statements are included in the BASIC 
listing. Since this subroutine is longer than can fit into page six, I put 
it in page 80 which is reserved for the right-hand cartridge in the 800 
and is unused in the XL series. I do not know about the XE series. 

A display list interrupt in subroutine 6000 changes the colors at 
screen line 4. Subroutine 3000 is used to setup the margins. Subroutine 
4000 opens the keyboard for input on channel #1 (with screen output) 
and opens the printer for output on channel #2. Subroutine 5000 
redefines the character set to create the colored line. Lines 5010-5070 
include a machine language subroutine to relocate the normal character 
set in RAM where it may then be modified. Lines 5080-5100 redefine 
the graphic "heart" to be the character for the colored line. The color 
was created in Graphics 0 by using color artifacting — that is, every 
other pixel was turned on. See you local popular books and magazines 
for articles on interrupts, character set redefinition and color artifacting. 

The main loop of the program is lines 210-260. In line 210 the cursor 
position is defined so the cursor will be returned to the beginning of the 
colored line after the colored line is printed. The print statment in line 
220 is needed to reposition the cursor so you can see where you are. 
Line 21 2 is needed to insure the cursor is positioned on the colored line 
when the text extends to the bottom of the screen. 

The trickiest part of this program is synchronizing the timing of the 
vertical blank interrupt and the BASIC program. Line 225 is needed to 
insure that the bell does not ring at the wrong time and the "keyboard 
disable" used as the margin stop does not engage at the wrong time. 
Line 240 is needed to empty the buffer when Select is pressed so the 
printer does not print unwanted text. 

Be careful if you type control characters because they may lock up 
your printer. If this occurs, just turn off the printer and turn it on again. 
As an added feature, you may use the control characters to enhance 
your text. For example, on my Axiom AT-100, Control-N will turn on 
the expanded text mode and Control-0 wil turn it off. Also be careful 
not to move the cursor off the line you are typing or funny things might 
happen. Quick Print does not recognize special characters such as Tab 


unless your printer can interpret them properly. 

I hope you find Quick Print as useful as I have. 

— Gerry Wick 

BRIMSTONE and ESSEX 

(for the 800/130 XE) 

Synapse describes these games as "electronic novels". They are 
very extensive text adventure games requiring 2 disk drives as well as 
48K machines. The player/reader is required to read a book describing 
the background and introducing the characters in a fantasy plot. From 
there, you boot the disks following the prompts and begin. The all text 
play is similar to Infocom games with one big exception: with 2 disks 
crammed with huge data files to access, there are many more options. 
For example, playing ESSEX one evening I experimented at one point 
making 8 different responses at the same point in the game and found 
8 different complete turns of the plot unfoldment. In a sense the 
player/reader creates the plot by what he or she chooses to input. 

BRIMSTONE is a knights of the Round Table fantasy with castles, 
legends, damsels in distress etc. I find it relatively hard to get started, 
but once into it, the game moves along at an interesting clip with several 
surprises. It is far from predictable. 

ESSEX is a space adventure/fantasy with many climactic moments. 

I find it harder to play than BRIMSTONE, but this could be because I 
make all the wrong decisions. The story is not, in my view on par with 
the best of INFOCOM games although it is keeping my interest. 

My main criticism of these games and the concept is the relatively 
slow disk access. I frequently tire of the long waits. Perhaps I have been 
spoiled by the speed of the ST. 

— Graham Smith 


THE "ST" CONNECTION 

Programs for the ST are gradually becoming more plentiful. A few 
of the new programs and the final edition of ST BASIC are worth a few 
remarks. However, this is by no means an in-depth review. 

Hex, a strategy game from Mark of the Unicorn, is a very fine game 
— once you get into it far enough to understand the sometimes subtle 
play. It is sort of a cross between CHESS and ARCHON with a little of 
Q*BERT thrown in. It is hard to describe since there is really nothing 
else like it. The object is for you to turn the board surface green by 
jumping on the hexes making up the surface. This is complicated by your 
computer opponent who meanwhile is trying to turn the surface purp 
Altogether, there are 12 different opponents of varying skills and magi 
powers trying to undo you in 1 25 different levels. It is all very cleverly^ 
done and has great staying power and wonderful graphics. 

Ultima II on the ST is wonderful. The GEM interface makes play very 
simple and straight forward. Best of all, the frequent disk I/O is lightning 
fast. The GEM is perfect for this kind of application. I love it!!! 

The new ST BASIC is very powerful, and, if you can get used to 
hand-picking your way through all of the windows and the relatively slow 
speed, this adaptation of the language works. However, In playing with 
it one weekend, I am convinced that it is not for me. Atari's 
implimentation of the GEM Desktop in BASIC ST gets in my way. 
Supposedly Philon's Basic M is now being shipped so it will be interesting 
to compare the two basics although rumor has it that Basic M does not 
have graphic capabilities. 

I have also been impressed with SHICED: a shape and icon Editor 
designed specifically for the ST and made by Monarch Development of 
Salem. This product is a very high quality and thorough product. With 
it you can design your own Icons for the desktop, design multi-color 
shapes, and even do some animation. Best of all, you can save your 
work in a variety of different source codes including "C" and Assembler. 
With the number of examples included on the disk you can learn how 
to interface your files in your programs. 

— Graham Smith 
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Atari Computer Enthusiasts 

A.C.E. is an independent, non-profit and tax exempt computer club 
and user's group with no connection to Atari Corp. We are a group 
interested in educating our members in the use of the Atari Computer 
and in giving the latest News, Reviews and Rumors. 

All our articles, reviews and programs come from you, our members. 

Our membership is world wide; membership fees include the A.C.E. 
Newsletter. Dues are $14 a year for U.S., and $24 a year Overseas Airmail 
and include about 10 issues a year of the ACE Newsletter. 
Subscription Dep't: 3662 Vine Maple Dr., Eugene, OR 97405. 
**President— Dick Barkley, 2907 Wingate, Eugene, OR 97405 

503-344-5843 

Vice Pres— Larry Gold, 1927 McLean Blvd., Eugene, Or 97405 

503-686-1490 

8-bit Librarian— Chuck & Jody Ross, 2222 Ironwood, Eugene 97401 

(503) 342-4133 

ST Librarian— Jim Bumpas, 4405 Dillard Rd„ Eugene OR 97405 

503-484-4746 

Editors— Mike Dunn, 3662 Vine Maple Dr., Eugene, OR 97405 

503-344-6193 

Jim Bumpas, 4405 Dillard Rd., Eugene, OR 97405 

503-484-4746 

E.R.A.C.E. (Education SIG Editor)— Nora Young, 105 Hansen Lane, 

Eugene, OR 97404 / 503-688-1458 
Send 50c stamps or coin ($1 overseas) to the Ness' for the new, 
updated ACE Library List —new in May 85! 

Bulletin Board 
(503) 343-4352 

On line 24 hours a day, except for servicing and updating. Consists 
of an 800 XL, 2 double-density double sided disk drives and 2 double¬ 
sided, double-density, 80-track disk drives, an Epson MX80 printer, a 
1200 baud Prentice P212ST modem, running the Mindlink Bulletin Board 
software distributed by SofMark. 

Best of ACE books 

Volume 1 contains bound issues of the ACE Newsletter from the first 
issue, Oct 81 to June of 1982 

Volume 2 covers July 1982 to June 1983 

Only $12 each ($2 extra for Airmail). Available only from: 

George Suetsugu 
45-602 Apuapu St 
Kanoehe, HI 96744 



TYPESETTING 

FROM YOUR COMPUTER 

ATARI OWNERS: If you have a modem, text editor, and com¬ 
munications program to send ASCII files, you should consider 
the improved readability and cost savings provided by 
TYPESETTING your program documentation, manuscript, 
newsletter, or other lengthy text instead of just reproducing it 
from line printer or daisy-wheel output. Computer typesetting 
by telephone offers you high quality, space-saving copy that 
creates the professional image you want! Hundreds of type 
styles to choose from with 8 styles and 12 sizes “on line! 
And it s easy to encode your copy with the few typesetting 
commands you need. 

COMPLETE CONFIDENTIALITY GUARANTEED 
— Bonded for your protection — 

PUBLICATION DESIGN, EDITING, & PRODUCTION 

iliojDfcgS is 

30 East 13th Avenue Eugene, Oregon 97401 
Phone 503/683-2657 


SorlFinder Index 

A composite index of Atari related articles in four popular computer 
periodicals, including ACE. Volume Icovers April,. 1981 to June, 1983. 
Volume 2 coverfiiuiy, 1983 to Becember, 1985. Only $6 per printed copy 
or $11 per disk'edjby for ACE members: 

Jim Carr 2660 S.W. DeArmond 
Corvallis, OR 97333 







